function singlewave_cpu(file, seconds)
    if nargin < 2, seconds = 0; end
    if seconds == 0
        [y, Fs] = wavread(file);      % data= y, sampling freq = Fs
    else
        [y, Fs] = wavread(file,[1 44100*seconds]);      % data= y, sampling freq = Fs
    end
    y = y(:,1);
    lenY = length(y);
    close all;
    
    player = audioplayer(y,Fs);
    
    t = (1:length(y))/Fs;         % time
    h = figure;
    set(h, 'Color', [.1,.1,.05]); %nackground color
    
    h = gcf;
    
    timeSkip = 350/44100;
    
    myt = tic;
    
    a= size(y);
    lengthSong = a(1)/Fs;
    
    play(player);
    numSeconds = 0;
    while numSeconds<lengthSong
        tic;
        numSeconds = toc(myt);
        
        indnew = [ceil((numSeconds-timeSkip)*44100) ceil((numSeconds+timeSkip)*44100)];
        
        if (indnew(1) <= 0)
            indnew(1) = 1;
        end
        if (indnew(2) >= lenY)
            indnew(2)= lenY
        end
        ind = [indnew(1):indnew(end)];
        if length(ind) == 0
            break;
        end
        
        handle = plot(y(ind));
        set(handle, 'Color', [1,1,1], 'LineWidth',4);
        
        ylim([-.5 .5]);
        
        axis off
        toc
        pause(.01);
        
        
    end
